module Disemvowel where

disemvowel :: String -> String
disemvowel [] = []
disemvowel (x:xs) = if notElem x vowel then x:disemvowel xs else disemvowel xs
  where
    vowel = "AEIOUaeiou"

-- after solution
disemvowel2 :: String -> String
disemvowel2 = filter (`notElem` "AEIOUaeiou")
